/ Amiga Format CD 7 / Amiga Format AFCD07 (Dec 1996, Issue 91).iso / serious / shareware / programming / emacs-complete / fsf / emacs / lisp / cal-french.elc

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 72 6f 6c 61 6e 64 40 |piled by| roland@|
|00000020| 63 68 75 72 63 68 79 2e | 67 6e 75 2e 61 69 2e 6d |churchy.|gnu.ai.m|
|00000030| 69 74 2e 65 64 75 20 6f | 6e 20 4d 6f 6e 20 4d 61 |it.edu o|n Mon Ma|
|00000040| 79 20 33 30 20 32 31 3a | 34 39 3a 30 30 20 31 39 |y 30 21:|49:00 19|
|00000050| 39 34 0a 3b 3b 3b 20 66 | 72 6f 6d 20 66 69 6c 65 |94.;;; f|rom file|
|00000060| 20 2f 67 64 2f 67 6e 75 | 2f 65 6d 61 63 73 2f 31 | /gd/gnu|/emacs/1|
|00000070| 39 2e 30 2f 6c 69 73 70 | 2f 63 61 6c 2d 66 72 65 |9.0/lisp|/cal-fre|
|00000080| 6e 63 68 2e 65 6c 0a 3b | 3b 3b 20 65 6d 61 63 73 |nch.el.;|;; emacs|
|00000090| 20 76 65 72 73 69 6f 6e | 20 31 39 2e 32 34 2e 31 | version| 19.24.1|
|000000a0| 2e 0a 3b 3b 3b 20 62 79 | 74 65 63 6f 6d 70 20 76 |..;;; by|tecomp v|
|000000b0| 65 72 73 69 6f 6e 20 46 | 53 46 20 32 2e 31 30 0a |ersion F|SF 2.10.|
|000000c0| 3b 3b 3b 20 6f 70 74 69 | 6d 69 7a 61 74 69 6f 6e |;;; opti|mization|
|000000d0| 20 69 73 20 6f 6e 2e 0a | 3b 3b 3b 20 74 68 69 73 | is on..|;;; this|
|000000e0| 20 66 69 6c 65 20 75 73 | 65 73 20 6f 70 63 6f 64 | file us|es opcod|
|000000f0| 65 73 20 77 68 69 63 68 | 20 64 6f 20 6e 6f 74 20 |es which| do not |
|00000100| 65 78 69 73 74 20 69 6e | 20 45 6d 61 63 73 20 31 |exist in| Emacs 1|
|00000110| 38 2e 0a 0a 28 69 66 20 | 28 61 6e 64 20 28 62 6f |8...(if |(and (bo|
|00000120| 75 6e 64 70 20 27 65 6d | 61 63 73 2d 76 65 72 73 |undp 'em|acs-vers|
|00000130| 69 6f 6e 29 0a 09 20 28 | 6f 72 20 28 61 6e 64 20 |ion).. (|or (and |
|00000140| 28 62 6f 75 6e 64 70 20 | 27 65 70 6f 63 68 3a 3a |(boundp |'epoch::|
|00000150| 76 65 72 73 69 6f 6e 29 | 20 65 70 6f 63 68 3a 3a |version)| epoch::|
|00000160| 76 65 72 73 69 6f 6e 29 | 0a 09 20 20 20 20 20 28 |version)|..     (|
|00000170| 73 74 72 69 6e 67 2d 6c | 65 73 73 70 20 65 6d 61 |string-l|essp ema|
|00000180| 63 73 2d 76 65 72 73 69 | 6f 6e 20 22 31 39 22 29 |cs-versi|on "19")|
|00000190| 29 29 0a 20 20 20 20 28 | 65 72 72 6f 72 20 22 60 |)).    (|error "`|
|000001a0| 2f 67 64 2f 67 6e 75 2f | 65 6d 61 63 73 2f 31 39 |/gd/gnu/|emacs/19|
|000001b0| 2e 30 2f 6c 69 73 70 2f | 63 61 6c 2d 66 72 65 6e |.0/lisp/|cal-fren|
|000001c0| 63 68 2e 65 6c 27 20 77 | 61 73 20 63 6f 6d 70 69 |ch.el' w|as compi|
|000001d0| 6c 65 64 20 66 6f 72 20 | 45 6d 61 63 73 20 31 39 |led for |Emacs 19|
|000001e0| 22 29 29 0a 0a 28 62 79 | 74 65 2d 63 6f 64 65 20 |"))..(by|te-code |
|000001f0| 22 c0 c1 21 88 c2 13 c4 | 15 c6 16 07 c0 87 22 20 |"..!....|......" |
|00000200| 5b 72 65 71 75 69 72 65 | 20 63 61 6c 65 6e 64 61 |[require| calenda|
|00000210| 72 20 5b 22 56 65 6e 64 | 65 27 6d 69 61 69 72 65 |r ["Vend|e'miaire|
|00000220| 22 20 22 42 72 75 6d 61 | 69 72 65 22 20 22 46 72 |" "Bruma|ire" "Fr|
|00000230| 69 6d 61 69 72 65 22 20 | 22 4e 69 76 6f 5e 73 65 |imaire" |"Nivo^se|
|00000240| 22 20 22 50 6c 75 76 69 | 6f 5e 73 65 22 20 22 56 |" "Pluvi|o^se" "V|
|00000250| 65 6e 74 6f 5e 73 65 22 | 20 22 47 65 72 6d 69 6e |ento^se"| "Germin|
|00000260| 61 6c 22 20 22 46 6c 6f | 72 65 27 61 6c 22 20 22 |al" "Flo|re'al" "|
|00000270| 50 72 61 69 72 69 61 6c | 22 20 22 4d 65 73 73 69 |Prairial|" "Messi|
|00000280| 64 6f 72 22 20 22 54 68 | 65 72 6d 69 64 6f 72 22 |dor" "Th|ermidor"|
|00000290| 20 22 46 72 75 63 74 69 | 64 6f 72 22 5d 20 66 72 | "Fructi|dor"] fr|
|000002a0| 65 6e 63 68 2d 63 61 6c | 65 6e 64 61 72 2d 6d 6f |ench-cal|endar-mo|
|000002b0| 6e 74 68 2d 6e 61 6d 65 | 2d 61 72 72 61 79 20 5b |nth-name|-array [|
|000002c0| 22 50 72 69 6d 69 64 69 | 22 20 22 44 75 6f 64 69 |"Primidi|" "Duodi|
|000002d0| 22 20 22 54 72 69 64 69 | 22 20 22 51 75 61 72 74 |" "Tridi|" "Quart|
|000002e0| 69 64 69 22 20 22 51 75 | 69 6e 74 69 64 69 22 20 |idi" "Qu|intidi" |
|000002f0| 22 53 65 78 74 69 64 69 | 22 20 22 53 65 70 74 69 |"Sextidi|" "Septi|
|00000300| 64 69 22 20 22 4f 63 74 | 69 64 69 22 20 22 4e 6f |di" "Oct|idi" "No|
|00000310| 6e 69 64 69 22 20 22 44 | 65 63 61 64 69 22 5d 20 |nidi" "D|ecadi"] |
|00000320| 66 72 65 6e 63 68 2d 63 | 61 6c 65 6e 64 61 72 2d |french-c|alendar-|
|00000330| 64 61 79 2d 6e 61 6d 65 | 2d 61 72 72 61 79 20 5b |day-name|-array [|
|00000340| 22 64 65 20 6c 61 20 56 | 65 72 74 75 22 20 22 64 |"de la V|ertu" "d|
|00000350| 75 20 47 65 6e 69 65 22 | 20 22 64 75 20 4c 61 62 |u Genie"| "du Lab|
|00000360| 6f 75 72 22 20 22 64 65 | 20 6c 61 20 52 61 69 73 |our" "de| la Rais|
|00000370| 6f 6e 22 20 22 64 65 20 | 6c 61 20 52 65 63 6f 6d |on" "de |la Recom|
|00000380| 70 65 6e 73 65 22 20 22 | 64 65 20 6c 61 20 52 65 |pense" "|de la Re|
|00000390| 76 6f 6c 75 74 69 6f 6e | 22 5d 20 66 72 65 6e 63 |volution|"] frenc|
|000003a0| 68 2d 63 61 6c 65 6e 64 | 61 72 2d 73 70 65 63 69 |h-calend|ar-speci|
|000003b0| 61 6c 2d 64 61 79 73 2d | 61 72 72 61 79 5d 20 32 |al-days-|array] 2|
|000003c0| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 66 72 65 |).(defal|ias 'fre|
|000003d0| 6e 63 68 2d 63 61 6c 65 | 6e 64 61 72 2d 6c 65 61 |nch-cale|ndar-lea|
|000003e0| 70 2d 79 65 61 72 2d 70 | 20 23 5b 28 79 65 61 72 |p-year-p| #[(year|
|000003f0| 29 20 22 08 c1 3e 86 29 | 00 08 c2 3e 86 29 00 08 |) "..>.)|...>.)..|
|00000400| c3 56 85 29 00 08 c4 a6 | c5 55 85 29 00 08 c6 a6 |.V.)....|.U.)....|
|00000410| c7 3e 3f 85 29 00 08 c8 | a6 c5 55 3f 87 22 20 5b |.>?.)...|..U?." [|
|00000420| 79 65 61 72 20 28 33 20 | 37 20 31 31 29 20 28 31 |year (3 |7 11) (1|
|00000430| 35 20 32 30 29 20 32 30 | 20 34 20 30 20 34 30 30 |5 20) 20| 4 0 400|
|00000440| 20 28 31 30 30 20 32 30 | 30 20 33 30 30 29 20 34 | (100 20|0 300) 4|
|00000450| 30 30 30 5d 20 32 20 22 | 5c 0a 54 72 75 65 20 69 |000] 2 "|\.True i|
|00000460| 66 20 59 45 41 52 20 69 | 73 20 61 20 6c 65 61 70 |f YEAR i|s a leap|
|00000470| 20 79 65 61 72 20 6f 6e | 20 74 68 65 20 46 72 65 | year on| the Fre|
|00000480| 6e 63 68 20 52 65 76 6f | 6c 75 74 69 6f 6e 61 72 |nch Revo|lutionar|
|00000490| 79 20 63 61 6c 65 6e 64 | 61 72 2e 0a 46 6f 72 20 |y calend|ar..For |
|000004a0| 47 72 65 67 6f 72 69 61 | 6e 20 79 65 61 72 73 20 |Gregoria|n years |
|000004b0| 31 37 39 33 20 74 6f 20 | 31 38 30 35 2c 20 74 68 |1793 to |1805, th|
|000004c0| 65 20 79 65 61 72 73 20 | 6f 66 20 61 63 74 75 61 |e years |of actua|
|000004d0| 6c 20 6f 70 65 72 61 74 | 69 6f 6e 20 6f 66 20 74 |l operat|ion of t|
|000004e0| 68 65 0a 63 61 6c 65 6e | 64 61 72 2c 20 75 73 65 |he.calen|dar, use|
|000004f0| 73 20 68 69 73 74 6f 72 | 69 63 61 6c 20 70 72 61 |s histor|ical pra|
|00000500| 63 74 69 63 65 20 62 61 | 73 65 64 20 6f 6e 20 65 |ctice ba|sed on e|
|00000510| 71 75 69 6e 6f 78 65 73 | 20 69 73 20 66 6f 6c 6c |quinoxes| is foll|
|00000520| 6f 77 65 64 20 28 79 65 | 61 72 73 20 33 2c 20 37 |owed (ye|ars 3, 7|
|00000530| 2c 0a 61 6e 64 20 31 31 | 20 77 65 72 65 20 6c 65 |,.and 11| were le|
|00000540| 61 70 20 79 65 61 72 73 | 3b 20 31 35 20 61 6e 64 |ap years|; 15 and|
|00000550| 20 32 30 20 77 6f 75 6c | 64 20 68 61 76 65 20 62 | 20 woul|d have b|
|00000560| 65 65 6e 20 6c 65 61 70 | 20 79 65 61 72 73 29 2e |een leap| years).|
|00000570| 20 20 46 6f 72 20 6c 61 | 74 65 72 0a 79 65 61 72 |  For la|ter.year|
|00000580| 73 20 75 73 65 73 20 74 | 68 65 20 70 72 6f 70 6f |s uses t|he propo|
|00000590| 73 65 64 20 72 75 6c 65 | 20 6f 66 20 52 6f 6d 6d |sed rule| of Romm|
|000005a0| 65 20 28 6e 65 76 65 72 | 20 61 64 6f 70 74 65 64 |e (never| adopted|
|000005b0| 29 2d 2d 6c 65 61 70 20 | 79 65 61 72 73 20 66 61 |)--leap |years fa|
|000005c0| 6c 6c 20 65 76 65 72 79 | 0a 66 6f 75 72 20 79 65 |ll every|.four ye|
|000005d0| 61 72 73 20 65 78 63 65 | 70 74 20 63 65 6e 74 75 |ars exce|pt centu|
|000005e0| 72 79 20 79 65 61 72 73 | 20 6e 6f 74 20 64 69 76 |ry years| not div|
|000005f0| 69 73 69 62 6c 65 20 34 | 30 30 20 61 6e 64 20 63 |isible 4|00 and c|
|00000600| 65 6e 74 75 72 79 20 79 | 65 61 72 73 20 74 68 61 |entury y|ears tha|
|00000610| 74 20 61 72 65 0a 6d 75 | 6c 74 69 70 6c 65 73 20 |t are.mu|ltiples |
|00000620| 6f 66 20 34 30 30 30 2e | 22 5d 29 0a 28 64 65 66 |of 4000.|"]).(def|
|00000630| 61 6c 69 61 73 20 27 66 | 72 65 6e 63 68 2d 63 61 |alias 'f|rench-ca|
|00000640| 6c 65 6e 64 61 72 2d 6c | 61 73 74 2d 64 61 79 2d |lendar-l|ast-day-|
|00000650| 6f 66 2d 6d 6f 6e 74 68 | 20 23 5b 28 6d 6f 6e 74 |of-month| #[(mont|
|00000660| 68 20 79 65 61 72 29 20 | 22 08 c1 57 83 08 00 c2 |h year) |"..W....|
|00000670| 87 c3 5c 66 21 83 10 00 | c5 87 c6 87 22 20 5b 6d |..\f!...|...." [m|
|00000680| 6f 6e 74 68 20 31 33 20 | 33 30 20 66 72 65 6e 63 |onth 13 |30 frenc|
|00000690| 68 2d 63 61 6c 65 6e 64 | 61 72 2d 6c 65 61 70 2d |h-calend|ar-leap-|
|000006a0| 79 65 61 72 2d 70 20 79 | 65 61 72 20 36 20 35 5d |year-p y|ear 6 5]|
|000006b0| 20 32 20 22 5c 0a 52 65 | 74 75 72 6e 20 6c 61 73 | 2 "\.Re|turn las|
|000006c0| 74 20 64 61 79 20 6f 66 | 20 4d 4f 4e 54 48 2c 20 |t day of| MONTH, |
|000006d0| 59 45 41 52 20 6f 6e 20 | 74 68 65 20 46 72 65 6e |YEAR on |the Fren|
|000006e0| 63 68 20 52 65 76 6f 6c | 75 74 69 6f 6e 61 72 79 |ch Revol|utionary|
|000006f0| 20 63 61 6c 65 6e 64 61 | 72 2e 0a 54 68 65 20 31 | calenda|r..The 1|
|00000700| 33 74 68 20 6d 6f 6e 74 | 68 20 69 73 20 6e 6f 74 |3th mont|h is not|
|00000710| 20 72 65 61 6c 6c 79 20 | 61 20 6d 6f 6e 74 68 2c | really |a month,|
|00000720| 20 62 75 74 20 74 68 65 | 20 35 20 28 36 20 69 6e | but the| 5 (6 in|
|00000730| 20 6c 65 61 70 20 79 65 | 61 72 73 29 20 64 61 79 | leap ye|ars) day|
|00000740| 20 70 65 72 69 6f 64 20 | 6f 66 0a 60 73 61 6e 73 | period |of.`sans|
|00000750| 63 75 6c 6f 74 74 69 64 | 65 73 27 20 61 74 20 74 |culottid|es' at t|
|00000760| 68 65 20 65 6e 64 20 6f | 66 20 74 68 65 20 79 65 |he end o|f the ye|
|00000770| 61 72 2e 22 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 |ar."]).(|defalias|
|00000780| 20 27 63 61 6c 65 6e 64 | 61 72 2d 61 62 73 6f 6c | 'calend|ar-absol|
|00000790| 75 74 65 2d 66 72 6f 6d | 2d 66 72 65 6e 63 68 20 |ute-from|-french |
|000007a0| 23 5b 28 64 61 74 65 29 | 20 22 08 40 08 41 40 08 |#[(date)| ".@.A@.|
|000007b0| 41 41 40 19 1a 1b 09 53 | c4 5f 09 c5 57 83 1c 00 |AA@....S|._..W...|
|000007c0| 09 c6 a5 82 31 00 09 53 | c6 a5 09 53 c7 a5 5b 09 |....1..S|...S..[.|
|000007d0| 53 c8 a5 09 53 c9 a5 5b | 5c 5c 5c 5c 5c 5c 0b 53 |S...S..[|\\\\\\.S|
|000007e0| ca 5f 5c 6e cb 5c 5c 5c | 5c 5c 5c 5c 5c 2b 87 22 |._\n.\\\|\\\\\+."|
|000007f0| 20 5b 64 61 74 65 20 79 | 65 61 72 20 64 61 79 20 | [date y|ear day |
|00000800| 6d 6f 6e 74 68 20 33 36 | 35 20 32 30 20 34 20 31 |month 36|5 20 4 1|
|00000810| 30 30 20 34 30 30 20 34 | 30 30 30 20 33 30 20 36 |00 400 4|000 30 6|
|00000820| 35 34 34 31 34 5d 20 36 | 20 22 5c 0a 43 6f 6d 70 |54414] 6| "\.Comp|
|00000830| 75 74 65 20 61 62 73 6f | 6c 75 74 65 20 64 61 74 |ute abso|lute dat|
|00000840| 65 20 66 72 6f 6d 20 46 | 72 65 6e 63 68 20 52 65 |e from F|rench Re|
|00000850| 76 6f 6c 75 74 69 6f 6e | 61 72 79 20 64 61 74 65 |volution|ary date|
|00000860| 20 44 41 54 45 2e 0a 54 | 68 65 20 61 62 73 6f 6c | DATE..T|he absol|
|00000870| 75 74 65 20 64 61 74 65 | 20 69 73 20 74 68 65 20 |ute date| is the |
|00000880| 6e 75 6d 62 65 72 20 6f | 66 20 64 61 79 73 20 65 |number o|f days e|
|00000890| 6c 61 70 73 65 64 20 73 | 69 6e 63 65 20 74 68 65 |lapsed s|ince the|
|000008a0| 20 28 69 6d 61 67 69 6e | 61 72 79 29 0a 47 72 65 | (imagin|ary).Gre|
|000008b0| 67 6f 72 69 61 6e 20 64 | 61 74 65 20 53 75 6e 64 |gorian d|ate Sund|
|000008c0| 61 79 2c 20 44 65 63 65 | 6d 62 65 72 20 33 31 2c |ay, Dece|mber 31,|
|000008d0| 20 31 20 42 43 2e 22 5d | 29 0a 28 64 65 66 61 6c | 1 BC."]|).(defal|
|000008e0| 69 61 73 20 27 63 61 6c | 65 6e 64 61 72 2d 66 72 |ias 'cal|endar-fr|
|000008f0| 65 6e 63 68 2d 66 72 6f | 6d 2d 61 62 73 6f 6c 75 |ench-fro|m-absolu|
|00000900| 74 65 20 23 5b 28 64 61 | 74 65 29 20 22 08 c1 57 |te #[(da|te) "..W|
|00000910| 83 0b 00 c2 89 89 45 87 | 08 c3 5a c4 a5 89 1d 89 |......E.|..Z.....|
|00000920| c2 1e 06 1e 07 08 c8 c9 | 89 0e 07 54 45 21 59 83 |........|...TE!Y.|
|00000930| 33 00 0e 06 c9 5c 5c 16 | 06 0e 07 54 16 07 82 18 |3....\\.|...T....|
|00000940| 00 0e 06 2a 5c 5c 1e 5c | 6e c9 c2 1e 06 1e 0b 08 |...*\\.\|n.......|
|00000950| c8 0e 0b cc 0e 0b 0e 5c | 6e 5c 22 0e 5c 6e 45 21 |.......\|n\".\nE!|
|00000960| 56 83 5f 00 0e 06 c9 5c | 5c 16 06 0e 0b 54 16 0b |V._....\|\....T..|
|00000970| 82 3f 00 0e 06 2a 54 1e | 0d 08 c8 0e 0d c9 0e 5c |.?...*T.|.......\|
|00000980| 6e 45 21 53 5a 1e 0e 0e | 0d 0e 0e 0e 5c 6e 45 2c |nE!SZ...|....\nE,|
|00000990| 87 22 20 5b 64 61 74 65 | 20 36 35 34 34 31 35 20 |." [date| 654415 |
|000009a0| 30 20 36 35 34 34 31 34 | 20 33 36 36 20 61 70 70 |0 654414| 366 app|
|000009b0| 72 6f 78 20 73 75 6d 20 | 79 20 63 61 6c 65 6e 64 |rox sum |y calend|
|000009c0| 61 72 2d 61 62 73 6f 6c | 75 74 65 2d 66 72 6f 6d |ar-absol|ute-from|
|000009d0| 2d 66 72 65 6e 63 68 20 | 31 20 79 65 61 72 20 6d |-french |1 year m|
|000009e0| 20 66 72 65 6e 63 68 2d | 63 61 6c 65 6e 64 61 72 | french-|calendar|
|000009f0| 2d 6c 61 73 74 2d 64 61 | 79 2d 6f 66 2d 6d 6f 6e |-last-da|y-of-mon|
|00000a00| 74 68 20 6d 6f 6e 74 68 | 20 64 61 79 5d 20 37 20 |th month| day] 7 |
|00000a10| 22 5c 0a 43 6f 6d 70 75 | 74 65 20 74 68 65 20 46 |"\.Compu|te the F|
|00000a20| 72 65 6e 63 68 20 52 65 | 76 6f 6c 75 74 69 6f 6e |rench Re|volution|
|00000a30| 61 72 79 20 65 71 75 69 | 76 61 6c 65 6e 74 20 66 |ary equi|valent f|
|00000a40| 6f 72 20 61 62 73 6f 6c | 75 74 65 20 64 61 74 65 |or absol|ute date|
|00000a50| 20 44 41 54 45 2e 0a 54 | 68 65 20 72 65 73 75 6c | DATE..T|he resul|
|00000a60| 74 20 69 73 20 61 20 6c | 69 73 74 20 6f 66 20 74 |t is a l|ist of t|
|00000a70| 68 65 20 66 6f 72 6d 20 | 28 4d 4f 4e 54 48 20 44 |he form |(MONTH D|
|00000a80| 41 59 20 59 45 41 52 29 | 2e 0a 54 68 65 20 61 62 |AY YEAR)|..The ab|
|00000a90| 73 6f 6c 75 74 65 20 64 | 61 74 65 20 69 73 20 74 |solute d|ate is t|
|00000aa0| 68 65 20 6e 75 6d 62 65 | 72 20 6f 66 20 64 61 79 |he numbe|r of day|
|00000ab0| 73 20 65 6c 61 70 73 65 | 64 20 73 69 6e 63 65 20 |s elapse|d since |
|00000ac0| 74 68 65 0a 28 69 6d 61 | 67 69 6e 61 72 79 29 20 |the.(ima|ginary) |
|00000ad0| 47 72 65 67 6f 72 69 61 | 6e 20 64 61 74 65 20 53 |Gregoria|n date S|
|00000ae0| 75 6e 64 61 79 2c 20 44 | 65 63 65 6d 62 65 72 20 |unday, D|ecember |
|00000af0| 33 31 2c 20 31 20 42 43 | 2e 22 5d 29 0a 28 64 65 |31, 1 BC|."]).(de|
|00000b00| 66 61 6c 69 61 73 20 27 | 63 61 6c 65 6e 64 61 72 |falias '|calendar|
|00000b10| 2d 66 72 65 6e 63 68 2d | 64 61 74 65 2d 73 74 72 |-french-|date-str|
|00000b20| 69 6e 67 20 23 5b 28 26 | 6f 70 74 69 6f 6e 61 6c |ing #[(&|optional|
|00000b30| 20 64 61 74 65 29 20 22 | c0 09 86 07 00 c2 20 41 | date) "|...... A|
|00000b40| 41 40 53 1b 09 86 12 00 | c2 20 40 1c 09 86 1a 00 |A@S.....|. @.....|
|00000b50| c2 20 41 40 1d 09 86 23 | 00 c2 20 41 41 40 1e 06 |. A@...#|.. AA@..|
|00000b60| 0d 5c 66 53 c7 5f 5c 5c | 1e 08 5c 66 c9 56 83 62 |.\fS._\\|..\f.V.b|
|00000b70| 00 0e 08 5c 66 ca 5f cb | 5c 5c cc a5 5a 16 08 0e |...\f._.|\\..Z...|
|00000b80| 06 ca a6 cd 55 83 62 00 | 0e 06 ce a6 cd 55 83 5d |....U.b.|.....U.]|
|00000b90| 00 0e 06 cf a6 cd 55 83 | 62 00 0e 08 54 16 08 0e |......U.|b...T...|
|00000ba0| 08 2c 0b d0 5f 0b ca a5 | 0b ce a5 5b 0b cf a5 5c |.,.._...|...[...\|
|00000bb0| 5c 5c 5c 5c 5c 5c 5c 29 | 21 89 1e 11 41 41 40 1e |\\\\\\\)|!...AA@.|
|00000bc0| 12 0e 11 40 1e 13 0e 11 | 41 40 1e 14 0e 12 d5 57 |...@....|A@.....W|
|00000bd0| 83 96 00 d6 82 c7 00 0e | 13 d7 55 83 ab 00 d8 d9 |........|..U.....|
|00000be0| 0e 1a 0e 14 53 48 0e 12 | 23 82 c7 00 d8 db dc 0e |....SH..|#.......|
|00000bf0| 14 53 cc a5 54 dd 5c 22 | 0e 1e 0e 14 53 cc a6 48 |.S..T.\"|....S..H|
|00000c00| 0e 1f 0e 13 53 48 0e 12 | 25 2c 87 22 20 5b 63 61 |....SH..|%,." [ca|
|00000c10| 6c 65 6e 64 61 72 2d 66 | 72 65 6e 63 68 2d 66 72 |lendar-f|rench-fr|
|00000c20| 6f 6d 2d 61 62 73 6f 6c | 75 74 65 20 64 61 74 65 |om-absol|ute date|
|00000c30| 20 63 61 6c 65 6e 64 61 | 72 2d 63 75 72 72 65 6e | calenda|r-curren|
|00000c40| 74 2d 64 61 74 65 20 70 | 72 69 6f 72 2d 79 65 61 |t-date p|rior-yea|
|00000c50| 72 73 20 6d 6f 6e 74 68 | 20 64 61 79 20 79 65 61 |rs month| day yea|
|00000c60| 72 20 33 31 20 64 61 79 | 2d 6f 66 2d 79 65 61 72 |r 31 day|-of-year|
|00000c70| 20 32 20 34 20 32 33 20 | 31 30 20 30 20 31 30 30 | 2 4 23 |10 0 100|
|00000c80| 20 34 30 30 20 33 36 35 | 20 66 72 65 6e 63 68 2d | 400 365| french-|
|00000c90| 64 61 74 65 20 79 20 6d | 20 64 20 31 20 22 22 20 |date y m| d 1 "" |
|00000ca0| 31 33 20 66 6f 72 6d 61 | 74 20 22 4a 6f 75 72 20 |13 forma|t "Jour |
|00000cb0| 25 73 20 64 65 20 6c 27 | 41 6e 6e 65 27 65 20 25 |%s de l'|Anne'e %|
|00000cc0| 64 20 64 65 20 6c 61 20 | 52 65 76 6f 6c 75 74 69 |d de la |Revoluti|
|00000cd0| 6f 6e 22 20 66 72 65 6e | 63 68 2d 63 61 6c 65 6e |on" fren|ch-calen|
|00000ce0| 64 61 72 2d 73 70 65 63 | 69 61 6c 2d 64 61 79 73 |dar-spec|ial-days|
|00000cf0| 2d 61 72 72 61 79 20 22 | 44 65 63 61 64 65 20 25 |-array "|Decade %|
|00000d00| 73 2c 20 25 73 20 64 65 | 20 25 73 20 64 65 20 6c |s, %s de| %s de l|
|00000d10| 27 41 6e 6e 65 27 65 20 | 25 64 20 64 65 20 6c 61 |'Anne'e |%d de la|
|00000d20| 20 52 65 76 6f 6c 75 74 | 69 6f 6e 22 20 6d 61 6b | Revolut|ion" mak|
|00000d30| 65 2d 73 74 72 69 6e 67 | 20 37 33 20 66 72 65 6e |e-string| 73 fren|
|00000d40| 63 68 2d 63 61 6c 65 6e | 64 61 72 2d 64 61 79 2d |ch-calen|dar-day-|
|00000d50| 6e 61 6d 65 2d 61 72 72 | 61 79 20 66 72 65 6e 63 |name-arr|ay frenc|
|00000d60| 68 2d 63 61 6c 65 6e 64 | 61 72 2d 6d 6f 6e 74 68 |h-calend|ar-month|
|00000d70| 2d 6e 61 6d 65 2d 61 72 | 72 61 79 5d 20 38 20 22 |-name-ar|ray] 8 "|
|00000d80| 5c 0a 53 74 72 69 6e 67 | 20 6f 66 20 46 72 65 6e |\.String| of Fren|
|00000d90| 63 68 20 52 65 76 6f 6c | 75 74 69 6f 6e 61 72 79 |ch Revol|utionary|
|00000da0| 20 64 61 74 65 20 6f 66 | 20 47 72 65 67 6f 72 69 | date of| Gregori|
|00000db0| 61 6e 20 44 41 54 45 2e | 0a 52 65 74 75 72 6e 73 |an DATE.|.Returns|
|00000dc0| 20 74 68 65 20 65 6d 70 | 74 79 20 73 74 72 69 6e | the emp|ty strin|
|00000dd0| 67 20 69 66 20 44 41 54 | 45 20 69 73 20 70 72 65 |g if DAT|E is pre|
|00000de0| 2d 46 72 65 6e 63 68 20 | 52 65 76 6f 6c 75 74 69 |-French |Revoluti|
|00000df0| 6f 6e 61 72 79 2e 0a 44 | 65 66 61 75 6c 74 73 20 |onary..D|efaults |
|00000e00| 74 6f 20 74 6f 64 61 79 | 27 73 20 64 61 74 65 20 |to today|'s date |
|00000e10| 69 66 20 44 41 54 45 20 | 69 73 20 6e 6f 74 20 67 |if DATE |is not g|
|00000e20| 69 76 65 6e 2e 22 5d 29 | 0a 28 64 65 66 61 6c 69 |iven."])|.(defali|
|00000e30| 61 73 20 27 63 61 6c 65 | 6e 64 61 72 2d 70 72 69 |as 'cale|ndar-pri|
|00000e40| 6e 74 2d 66 72 65 6e 63 | 68 2d 64 61 74 65 20 23 |nt-frenc|h-date #|
|00000e50| 5b 6e 69 6c 20 22 c0 c1 | c2 21 21 89 1b c4 98 83 |[nil "..|.!!.....|
|00000e60| 12 00 c5 c6 21 82 15 00 | c5 0b 21 29 87 22 20 5b |....!...|..!)." [|
|00000e70| 63 61 6c 65 6e 64 61 72 | 2d 66 72 65 6e 63 68 2d |calendar|-french-|
|00000e80| 64 61 74 65 2d 73 74 72 | 69 6e 67 20 63 61 6c 65 |date-str|ing cale|
|00000e90| 6e 64 61 72 2d 63 75 72 | 73 6f 72 2d 74 6f 2d 64 |ndar-cur|sor-to-d|
|00000ea0| 61 74 65 20 74 20 66 20 | 22 22 20 6d 65 73 73 61 |ate t f |"" messa|
|00000eb0| 67 65 20 22 44 61 74 65 | 20 69 73 20 70 72 65 2d |ge "Date| is pre-|
|00000ec0| 46 72 65 6e 63 68 20 52 | 65 76 6f 6c 75 74 69 6f |French R|evolutio|
|00000ed0| 6e 22 5d 20 34 20 22 5c | 0a 53 68 6f 77 20 74 68 |n"] 4 "\|.Show th|
|00000ee0| 65 20 46 72 65 6e 63 68 | 20 52 65 76 6f 6c 75 74 |e French| Revolut|
|00000ef0| 69 6f 6e 61 72 79 20 63 | 61 6c 65 6e 64 61 72 20 |ionary c|alendar |
|00000f00| 65 71 75 69 76 61 6c 65 | 6e 74 20 6f 66 20 74 68 |equivale|nt of th|
|00000f10| 65 20 73 65 6c 65 63 74 | 65 64 20 64 61 74 65 2e |e select|ed date.|
|00000f20| 22 20 6e 69 6c 5d 29 0a | 28 64 65 66 61 6c 69 61 |" nil]).|(defalia|
|00000f30| 73 20 27 63 61 6c 65 6e | 64 61 72 2d 67 6f 74 6f |s 'calen|dar-goto|
|00000f40| 2d 66 72 65 6e 63 68 2d | 64 61 74 65 20 23 5b 28 |-french-|date #[(|
|00000f50| 64 61 74 65 20 26 6f 70 | 74 69 6f 6e 61 6c 20 6e |date &op|tional n|
|00000f60| 6f 65 63 68 6f 29 20 22 | c0 c1 c2 0b 21 21 21 88 |oecho) "|....!!!.|
|00000f70| 5c 66 86 0e 00 c5 20 87 | 22 20 5b 63 61 6c 65 6e |\f.... .|" [calen|
|00000f80| 64 61 72 2d 67 6f 74 6f | 2d 64 61 74 65 20 63 61 |dar-goto|-date ca|
|00000f90| 6c 65 6e 64 61 72 2d 67 | 72 65 67 6f 72 69 61 6e |lendar-g|regorian|
|00000fa0| 2d 66 72 6f 6d 2d 61 62 | 73 6f 6c 75 74 65 20 63 |-from-ab|solute c|
|00000fb0| 61 6c 65 6e 64 61 72 2d | 61 62 73 6f 6c 75 74 65 |alendar-|absolute|
|00000fc0| 2d 66 72 6f 6d 2d 66 72 | 65 6e 63 68 20 64 61 74 |-from-fr|ench dat|
|00000fd0| 65 20 6e 6f 65 63 68 6f | 20 63 61 6c 65 6e 64 61 |e noecho| calenda|
|00000fe0| 72 2d 70 72 69 6e 74 2d | 66 72 65 6e 63 68 2d 64 |r-print-|french-d|
|00000ff0| 61 74 65 5d 20 34 20 22 | 5c 0a 4d 6f 76 65 20 63 |ate] 4 "|\.Move c|
|00001000| 75 72 73 6f 72 20 74 6f | 20 46 72 65 6e 63 68 20 |ursor to| French |
|00001010| 52 65 76 6f 6c 75 74 69 | 6f 6e 61 72 79 20 64 61 |Revoluti|onary da|
|00001020| 74 65 20 44 41 54 45 2e | 0a 45 63 68 6f 20 46 72 |te DATE.|.Echo Fr|
|00001030| 65 6e 63 68 20 52 65 76 | 6f 6c 75 74 69 6f 6e 61 |ench Rev|olutiona|
|00001040| 72 79 20 64 61 74 65 20 | 75 6e 6c 65 73 73 20 4e |ry date |unless N|
|00001050| 4f 45 43 48 4f 20 69 73 | 20 74 2e 22 20 28 62 79 |OECHO is| t." (by|
|00001060| 74 65 2d 63 6f 64 65 20 | 22 c0 c1 c2 c3 c4 c5 20 |te-code |"...... |
|00001070| 41 41 40 53 1e 06 c5 20 | 40 1e 07 c5 20 41 40 1e |AA@S... |@... A@.|
|00001080| 08 c5 20 41 41 40 1e 09 | 0e 08 0e 07 53 ca 5f 5c |.. AA@..|....S._\|
|00001090| 5c 1e 0b 0e 07 cc 56 83 | 5d 00 0e 0b 0e 07 cd 5f |\.....V.|]......_|
|000010a0| ce 5c 5c cf a5 5a 16 0b | 0e 09 cd a6 d0 55 83 5d |.\\..Z..|.....U.]|
|000010b0| 00 0e 09 d1 a6 d0 55 83 | 58 00 0e 09 d2 a6 d0 55 |......U.|X......U|
|000010c0| 83 5d 00 0e 0b 54 16 0b | 0e 0b 2c 0e 06 d3 5f 0e |.]...T..|..,..._.|
|000010d0| 06 cd a5 0e 06 d1 a5 5b | 0e 06 d2 a5 5c 5c 5c 5c |.......[|....\\\\|
|000010e0| 5c 5c 5c 5c 29 21 41 41 | 40 21 23 1e 09 d4 d5 d6 |\\\\)!AA|@!#.....|
|000010f0| 0e 17 d8 0e 09 21 83 92 | 00 d4 d9 0e 1a 5c 22 82 |.....!..|.....\".|
|00001100| 9a 00 d4 db 0e 1a 5c 22 | 9f 41 9f 5c 22 5c 22 1e |......\"|.A.\"\".|
|00001110| 1c dd 1e 1e df e0 e1 e2 | 0e 1c e3 dd 24 21 e4 0e |........|....$!..|
|00001120| 1c e5 e6 23 5c 22 41 89 | 1e 07 e7 56 83 bf 00 e5 |...#\"A.|...V....|
|00001130| 82 c3 00 c0 e8 e9 5c 22 | 1e 2a 0e 07 e7 56 83 d3 |......\"|.*...V..|
|00001140| 00 0e 07 e7 5a 82 d7 00 | c0 eb ec 5c 22 1e 08 0e |....Z...|...\"...|
|00001150| 07 e7 56 83 e4 00 ed 82 | e6 00 0e 07 1e 07 0e 08 |..V.....|........|
|00001160| 0e 2a 53 cf 5f 5c 5c 1e | 08 0e 07 0e 08 0e 09 45 |.*S._\\.|.......E|
|00001170| 2e 08 43 87 22 20 5b 63 | 61 6c 65 6e 64 61 72 2d |..C." [c|alendar-|
|00001180| 72 65 61 64 20 22 41 6e | 6e 65 27 65 20 64 65 20 |read "An|ne'e de |
|00001190| 6c 61 20 52 65 76 6f 6c | 75 74 69 6f 6e 20 28 3e |la Revol|ution (>|
|000011a0| 30 29 3a 20 22 20 28 6c | 61 6d 62 64 61 20 28 78 |0): " (l|ambda (x|
|000011b0| 29 20 28 3e 20 78 20 30 | 29 29 20 69 6e 74 2d 74 |) (> x 0|)) int-t|
|000011c0| 6f 2d 73 74 72 69 6e 67 | 20 63 61 6c 65 6e 64 61 |o-string| calenda|
|000011d0| 72 2d 66 72 65 6e 63 68 | 2d 66 72 6f 6d 2d 61 62 |r-french|-from-ab|
|000011e0| 73 6f 6c 75 74 65 20 63 | 61 6c 65 6e 64 61 72 2d |solute c|alendar-|
|000011f0| 63 75 72 72 65 6e 74 2d | 64 61 74 65 20 70 72 69 |current-|date pri|
|00001200| 6f 72 2d 79 65 61 72 73 | 20 6d 6f 6e 74 68 20 64 |or-years| month d|
|00001210| 61 79 20 79 65 61 72 20 | 33 31 20 64 61 79 2d 6f |ay year |31 day-o|
|00001220| 66 2d 79 65 61 72 20 32 | 20 34 20 32 33 20 31 30 |f-year 2| 4 23 10|
|00001230| 20 30 20 31 30 30 20 34 | 30 30 20 33 36 35 20 6d | 0 100 4|00 365 m|
|00001240| 61 70 63 61 72 20 6c 69 | 73 74 20 61 70 70 65 6e |apcar li|st appen|
|00001250| 64 20 66 72 65 6e 63 68 | 2d 63 61 6c 65 6e 64 61 |d french|-calenda|
|00001260| 72 2d 6d 6f 6e 74 68 2d | 6e 61 6d 65 2d 61 72 72 |r-month-|name-arr|
|00001270| 61 79 20 66 72 65 6e 63 | 68 2d 63 61 6c 65 6e 64 |ay frenc|h-calend|
|00001280| 61 72 2d 6c 65 61 70 2d | 79 65 61 72 2d 70 20 23 |ar-leap-|year-p #|
|00001290| 5b 28 78 29 20 22 c0 09 | 50 87 22 20 5b 22 4a 6f |[(x) "..|P." ["Jo|
|000012a0| 75 72 20 22 20 78 5d 20 | 32 5d 20 66 72 65 6e 63 |ur " x] |2] frenc|
|000012b0| 68 2d 63 61 6c 65 6e 64 | 61 72 2d 73 70 65 63 69 |h-calend|ar-speci|
|000012c0| 61 6c 2d 64 61 79 73 2d | 61 72 72 61 79 20 23 5b |al-days-|array #[|
|000012d0| 28 78 29 20 22 c0 09 50 | 87 22 20 5b 22 4a 6f 75 |(x) "..P|." ["Jou|
|000012e0| 72 20 22 20 78 5d 20 32 | 5d 20 6d 6f 6e 74 68 2d |r " x] 2|] month-|
|000012f0| 6c 69 73 74 20 74 20 63 | 6f 6d 70 6c 65 74 69 6f |list t c|ompletio|
|00001300| 6e 2d 69 67 6e 6f 72 65 | 2d 63 61 73 65 20 61 73 |n-ignore|-case as|
|00001310| 73 6f 63 20 63 61 70 69 | 74 61 6c 69 7a 65 20 63 |soc capi|talize c|
|00001320| 6f 6d 70 6c 65 74 69 6e | 67 2d 72 65 61 64 20 22 |ompletin|g-read "|
|00001330| 4d 6f 69 73 20 6f 75 20 | 53 61 6e 73 63 75 6c 6f |Mois ou |Sansculo|
|00001340| 74 74 69 64 65 3a 20 22 | 20 6e 69 6c 20 63 61 6c |ttide: "| nil cal|
|00001350| 65 6e 64 61 72 2d 6d 61 | 6b 65 2d 61 6c 69 73 74 |endar-ma|ke-alist|
|00001360| 20 31 20 28 6c 61 6d 62 | 64 61 20 28 78 29 20 28 | 1 (lamb|da (x) (|
|00001370| 63 61 70 69 74 61 6c 69 | 7a 65 20 28 63 61 72 20 |capitali|ze (car |
|00001380| 78 29 29 29 20 31 32 20 | 22 44 65 27 63 61 64 65 |x))) 12 |"De'cade|
|00001390| 20 28 31 2d 33 29 3a 20 | 22 20 28 6c 61 6d 62 64 | (1-3): |" (lambd|
|000013a0| 61 20 28 78 29 20 28 6d | 65 6d 71 20 78 20 28 71 |a (x) (m|emq x (q|
|000013b0| 75 6f 74 65 20 28 31 20 | 32 20 33 29 29 29 29 20 |uote (1 |2 3)))) |
|000013c0| 64 65 63 61 64 65 20 22 | 4a 6f 75 72 20 28 31 2d |decade "|Jour (1-|
|000013d0| 31 30 29 3a 20 22 20 28 | 6c 61 6d 62 64 61 20 28 |10): " (|lambda (|
|000013e0| 78 29 20 28 61 6e 64 20 | 28 3c 3d 20 31 20 78 29 |x) (and |(<= 1 x)|
|000013f0| 20 28 3c 3d 20 78 20 31 | 30 29 29 29 20 31 33 5d | (<= x 1|0))) 13]|
|00001400| 20 31 32 29 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 | 12)]).(|defalias|
|00001410| 20 27 64 69 61 72 79 2d | 66 72 65 6e 63 68 2d 64 | 'diary-|french-d|
|00001420| 61 74 65 20 23 5b 6e 69 | 6c 20 22 c0 c1 c2 21 21 |ate #[ni|l "...!!|
|00001430| 89 1b c4 98 83 10 00 c5 | 82 11 00 0b 29 87 22 20 |........|....)." |
|00001440| 5b 63 61 6c 65 6e 64 61 | 72 2d 66 72 65 6e 63 68 |[calenda|r-french|
|00001450| 2d 64 61 74 65 2d 73 74 | 72 69 6e 67 20 63 61 6c |-date-st|ring cal|
|00001460| 65 6e 64 61 72 2d 63 75 | 72 73 6f 72 2d 74 6f 2d |endar-cu|rsor-to-|
|00001470| 64 61 74 65 20 74 20 66 | 20 22 22 20 22 44 61 74 |date t f| "" "Dat|
|00001480| 65 20 69 73 20 70 72 65 | 2d 46 72 65 6e 63 68 20 |e is pre|-French |
|00001490| 52 65 76 6f 6c 75 74 69 | 6f 6e 22 5d 20 34 20 22 |Revoluti|on"] 4 "|
|000014a0| 5c 0a 46 72 65 6e 63 68 | 20 63 61 6c 65 6e 64 61 |\.French| calenda|
|000014b0| 72 20 65 71 75 69 76 61 | 6c 65 6e 74 20 6f 66 20 |r equiva|lent of |
|000014c0| 64 61 74 65 20 64 69 61 | 72 79 20 65 6e 74 72 79 |date dia|ry entry|
|000014d0| 2e 22 5d 29 0a 28 70 72 | 6f 76 69 64 65 20 28 71 |."]).(pr|ovide (q|
|000014e0| 75 6f 74 65 20 63 61 6c | 2d 66 72 65 6e 63 68 29 |uote cal|-french)|
|000014f0| 29 0a                   |                         |).      |        |
+--------+-------------------------+-------------------------+--------+--------+